10 @(10)=3;@(9)=7;@(8)=4;@(7)=2;@(6)=9;@(5)=1;@(4)=3
20 @(27)=9;@(26)=6;@(25)=7
30 $mul @(0),@(18),@(36)
40 for A = 53 to 36 step -1
50 TV=@(A)
60 next A
65 Z=1
70 if @(53)="8" print "-"
80 for B=52 to 44 step -1
90 if @(B)="0" if Z goto 120
100 Z=0
110 TV=@(B)
120 next B
:return ;run 
